home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / UCB Logo 3.0 / logolib / find < prev    next >
Encoding:
Text File  |  1992-09-04  |  298 b   |  9 lines  |  [TEXT/JV01]
  1. to find :find.template :template.list [:template.number 1] ~
  2.         [:template.lists (list :template.list)]
  3. if emptyp :template.list [op []]
  4. if apply :find.template (list first :template.list) [op first :template.list]
  5. op (find :find.template bf :template.list :template.number+1)
  6. end
  7.  
  8. bury "find
  9.